﻿Public Class AnimationAndyGabe
    Inherits ObjektAnimation
    Public Sub New(ByVal X As Integer, ByVal Y As Integer, ByVal Musikspielen As Boolean, ByVal Schlacht As Integer)
        MyBase.New(Musikspielen, Schlacht)
        P.X = X
        P.Y = Y
        Frames = 7
        BildID = LoadTextur("AndyGabe", Frames)
        If DataSettings.MusikSound Then
            MusikEngine.LoadWav(DataSettings.Resourcenpfad + "Sound\Sound Effects\AndyGabe.wav", False)
        End If
    End Sub
End Class
Public Class AnimationDrakeGabe
    Inherits ObjektAnimation
    Public Sub New(ByVal X As Integer, ByVal Y As Integer, ByVal Musikspielen As Boolean, ByVal Schlacht As Integer)
        MyBase.New(Musikspielen, Schlacht)
        P.X = X
        P.Y = Y
        Frames = 7
        BildID = LoadTextur("DrakeGabe", Frames)
        If DataSettings.MusikSound Then
            MusikEngine.LoadWav(DataSettings.Resourcenpfad + "Sound\Sound Effects\DrakeGabe.wav", False)
        End If
    End Sub
End Class
Public Class AnimationEagleGabe
    Inherits ObjektAnimation
    Public Sub New(ByVal X As Integer, ByVal Y As Integer, ByVal Musikspielen As Boolean, ByVal Schlacht As Integer)
        MyBase.New(Musikspielen, Schlacht)
        P.X = X
        P.Y = Y
        Frames = 7
        BildID = LoadTextur("EagleGabe", Frames)
        If DataSettings.MusikSound Then
            MusikEngine.LoadWav(DataSettings.Resourcenpfad + "Sound\Sound Effects\Overworld\EagleGabe.wav", False)
        End If
    End Sub
End Class
Public Class AnimationJessGabe
    Inherits ObjektAnimation
    Public Sub New(ByVal X As Integer, ByVal Y As Integer, ByVal Musikspielen As Boolean, ByVal Schlacht As Integer)
        MyBase.New(Musikspielen, Schlacht)
        P.X = X
        P.Y = Y
        Frames = 7
        BildID = LoadTextur("JessGabe", Frames)
        If DataSettings.MusikSound Then
            MusikEngine.LoadWav(DataSettings.Resourcenpfad + "Sound\Sound Effects\JessGabe.wav", False)
        End If
    End Sub
End Class
Public Class AnimationKanbeiGabe
    Inherits ObjektAnimation
    Public Sub New(ByVal X As Integer, ByVal Y As Integer, ByVal Musikspielen As Boolean, ByVal Schlacht As Integer)
        MyBase.New(Musikspielen, Schlacht)
        P.X = X
        P.Y = Y
        Frames = 7
        BildID = LoadTextur("KanbeiGabe", Frames)
        If DataSettings.MusikSound Then
            MusikEngine.LoadWav(DataSettings.Resourcenpfad + "Sound\Sound Effects\Overworld\KanbeiGabe.wav", False)
        End If
    End Sub
End Class
Public Class AnimationKatGabe
    Inherits ObjektAnimation
    Public Sub New(ByVal X As Integer, ByVal Y As Integer, ByVal Musikspielen As Boolean, ByVal Schlacht As Integer)
        MyBase.New(Musikspielen, Schlacht)
        P.X = X
        P.Y = Y
        Frames = 7
        BildID = LoadTextur("KatGabe", Frames)
        If DataSettings.MusikSound Then
            MusikEngine.LoadWav(DataSettings.Resourcenpfad + "Sound\Sound Effects\Overworld\KatGabe.wav", False)
        End If
    End Sub
End Class
Public Class AnimationKidGabe
    Inherits ObjektAnimation
    Public Sub New(ByVal X As Integer, ByVal Y As Integer, ByVal Musikspielen As Boolean, ByVal Schlacht As Integer)
        MyBase.New(Musikspielen, Schlacht)
        P.X = X
        P.Y = Y
        Frames = 7
        BildID = LoadTextur("KidGabe", Frames)
        If DataSettings.MusikSound Then
            MusikEngine.LoadWav(DataSettings.Resourcenpfad + "Sound\Sound Effects\Overworld\KidGabe.wav", False)
        End If
    End Sub
End Class
Public Class AnimationMaxGabe
    Inherits ObjektAnimation
    Public Sub New(ByVal X As Integer, ByVal Y As Integer, ByVal Musikspielen As Boolean, ByVal Schlacht As Integer)
        MyBase.New(Musikspielen, Schlacht)
        P.X = X
        P.Y = Y
        Frames = 7
        BildID = LoadTextur("MaxGabe", Frames)
        If DataSettings.MusikSound Then
            MusikEngine.LoadWav(DataSettings.Resourcenpfad + "Sound\Sound Effects\MaxGabe.wav", False)
        End If
    End Sub
End Class
Public Class AnimationNellGabe
    Inherits ObjektAnimation
    Public Sub New(ByVal X As Integer, ByVal Y As Integer, ByVal Musikspielen As Boolean, ByVal Schlacht As Integer)
        MyBase.New(Musikspielen, Schlacht)
        P.X = X
        P.Y = Y
        Frames = 7
        BildID = LoadTextur("NellGabe", Frames)
        If DataSettings.MusikSound Then
            MusikEngine.LoadWav(DataSettings.Resourcenpfad + "Sound\Sound Effects\NellGabe.wav", False)
        End If
    End Sub
End Class
Public Class AnimationSenseiGabe
    Inherits ObjektAnimation
    Public Sub New(ByVal X As Integer, ByVal Y As Integer, ByVal Musikspielen As Boolean, ByVal Schlacht As Integer)
        MyBase.New(Musikspielen, Schlacht)
        P.X = X
        P.Y = Y
        Frames = 7
        BildID = LoadTextur("SenseiGabe", Frames)
        If DataSettings.MusikSound Then
            MusikEngine.LoadWav(DataSettings.Resourcenpfad + "Sound\Sound Effects\SenseiGabe.wav", False)
        End If
    End Sub
End Class
Public Class AnimationTamiGabe
    Inherits ObjektAnimation
    Public Sub New(ByVal X As Integer, ByVal Y As Integer, ByVal Musikspielen As Boolean, ByVal Schlacht As Integer)
        MyBase.New(Musikspielen, Schlacht)
        P.X = X
        P.Y = Y
        Frames = 8
        BildID = LoadTextur("TamiGabe", Frames)
        If DataSettings.MusikSound Then
            MusikEngine.LoadWav(DataSettings.Resourcenpfad + "Sound\Sound Effects\Animations\TamiGabe.wav", False)
        End If
    End Sub
End Class
Public Class AnimationOzzyGabe
    Inherits ObjektAnimation
    Public Sub New(ByVal X As Integer, ByVal Y As Integer, ByVal Musikspielen As Boolean, ByVal Schlacht As Integer)
        MyBase.New(Musikspielen, Schlacht)
        P.X = X
        P.Y = Y
        Frames = 8
        BildID = LoadTextur("OzzyGabe", Frames)
        If DataSettings.MusikSound Then
            MusikEngine.LoadWav(DataSettings.Resourcenpfad + "Sound\Sound Effects\OzzyGabe.wav", False)
        End If
    End Sub
End Class
Public Class AnimationAmyGabe
    Inherits ObjektAnimation
    Public Sub New(ByVal X As Integer, ByVal Y As Integer, ByVal Musikspielen As Boolean, ByVal Schlacht As Integer)
        MyBase.New(Musikspielen, Schlacht)
        P.X = X
        P.Y = Y
        Frames = 8
        BildID = LoadTextur("AmyGabe", Frames)
        If DataSettings.MusikSound Then
            MusikEngine.LoadWav(DataSettings.Resourcenpfad + "Sound\Sound Effects\AmyGabe.wav", False)
        End If
    End Sub
End Class
Public Class AnimationPeterGabe
    Inherits ObjektAnimation
    Public Sub New(ByVal X As Integer, ByVal Y As Integer, ByVal Musikspielen As Boolean, ByVal Schlacht As Integer)
        MyBase.New(Musikspielen, Schlacht)
        P.X = X
        P.Y = Y
        Frames = 8
        BildID = LoadTextur("PeterGabe", Frames)
        If DataSettings.MusikSound Then
            MusikEngine.LoadWav(DataSettings.Resourcenpfad + "Sound\Sound Effects\PeterGabe.wav", False)
        End If
    End Sub
End Class
Public Class AnimationSpezialGabe
    Inherits ObjektAnimation
    Public Sub New(ByVal X As Integer, ByVal Y As Integer, ByVal Musikspielen As Boolean, ByVal Schlacht As Integer)
        MyBase.New(Musikspielen, Schlacht)
        P.X = X
        P.Y = Y
        Frames = 11
        BildID = LoadTextur("SpezialGabe", Frames)
        If DataSettings.MusikSound Then
            MusikEngine.LoadWav(DataSettings.Resourcenpfad + "Sound\Sound Effects\SpezialGabe.wav", False)
        End If
    End Sub
End Class
